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INTRODUCTION 

The listing of the Read Only Memory Diagnostic Program (ROMDI) is presented on the following pages. 

ROMDI is a compact CPU diagnostic that is written in the IMP-16 Assembler language, whose revision 
level appears at the top of first page. 

ROMDI tests the Central Processing Unit (CPU) on the IMP-16C card on a "go/no-go" basis. If the test 
indicates a failure, the particular malfunctioning device is not designated. To test individual devices in the 
IMP-16C CPU, first, it must be assured that all other CPU devices and the other components on the IMP- 
16C are functioning. 

There are four RALUs (Register, Arithmetic, and Logic Units) and one CROM (Control Read-Only Mem- 
ory) in the IMP-16C CPU. For example, a particular RALU may be tested by first assuring that the CROM 
and three of the other RALUs on the IMP-16C are functioning. In this case, if the test passes, the RALU 
under test is functioning; but if the test fails, the RALU under test is malfunctioning. 

Instructions for performing ROMDI are given in the listing. 
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REVISION-C 11/20/72 

ROMDI 000137A 04/04/73 



73095 



18531749 



1 0000 



0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 

44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 

52 0000 

53 0000 

54 0000 

55 0000 

56 0000 

57 0000 

58 0000 

59 0000 

60 0000 

61 0000 

62 0000 

63 0000 

64 0000 

65 0000 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 

74 0000 

75 0000 



0000 
0001 
0002 
0003 



0008 
0001 
0002 
0003 
0004 
0005 
0009 
000A 
000B 



0001 
0002 



A RO 
A Rl 



FEOO A 



R2 
R3 
I 
I 

STKFL 

ZRO 

PZRO 

ODD 

BIT1 

NZERO 

INTEN 

CYOV 

NZRO 

1 

IENFL 

SELX 

I 

ROMAD 



— NO CONCATENATION FOR THIS ASSEMBLY — 
.TITLE ROMDI, '000137A 04/04/73' 

MAIN PROGRAM IN ROM, X »FE00-X'FFFF, ENTRY POINT XtFFFE 

ROMDI IS A GO-NOGO CPU DIAGNOSTIC DESIGNED FOR THE IMP-16C. 
THE PROGRAM FITS INTO 4 8X256-BIT PROMS IN THE FOLLOWING 
MANNER I 



ROMDI1 RIGHT 

ROMDI 1 LEFT 

R0MDI2 RIGHT 

ROMDI2 LEFT 



ADDRESSES 

X'FEOO-X'FEFF 
X'FEOO-X'FEFF 
X'FFOO-X'FFFF 
X'FFOO-X'FFFF 



PROM DIAGRAM 
BITS DESIG CO-ORDINATE 



0-7 


ATZ 


3H 


8-15 


AUA 


3F 


0-7 


AUB 


3G 


8-15 


AUC 


3E 



ENTERING THE PROGRAM AT AODRESS FFFE TRANSFERS CONTROL TO A 
PANEL ROUTINE WHICH PERFORMS THE FOLLOWING FUNCTIONS IN 
RESPONSE TO DEPRESSION OF THE INDICATED SWITCHES: 

SWITCH FUNCTION 

LOAD ADDRESS LOAOS THE CONTENTS OF THE SWITCH REGISTER 

INTO ACCUMULATOR 2 AND DISPLAYS THE CONTENTS 
OF THE MEMORY LOCATION ADDRESSED BY ACCUM- 
ULATOR 2. 

LOAD DATA LOADS THE CONTENTS OF THE SWITCH REGISTER 
INTO ACCUMULATOR 0, STORES ACCUMULATOR 
INTO THE MEMORY LOCATION ADDRESSED BY 
ACCUMULATOR 2, AND DISPLAYS ACCUMULATOR 0. 

EXECUTE . TRANSFERS CONTROL TO THE MEMORY LOCATION 
INDICATED BY THE SWITCH REGISTER. 

UPON ENTRY TO THE PANEL ROUTINE, ACCUMULATORS 0,1,2, AND 3 
ARE SAVED IN MEMORY LOCATIONS 4,5,6 AND 7, RESPECTIVELY, 
THE CONTENTS OF AN ACCUMULATOR MAY BE SET BY ALTERING ITS 
CORRECPONDING MEMORY LOCATION. 

IF JUMP CONDITION 15 IS HIGH WHEN EITHER 'INITIALIZE* OR 
'EXECUTE* IS DEPRESSED, THE DIAGNOSTIC WILL BE CONTINUOUSLY 
REEXECUTED UNTIL EITHER THE JUMP CONDITION GOES LOW OR AN 
ERROR CONDITION IS DETECTED, 

IF THE DIAGNOSTIC EXECUTES SUCCESSFULLY, THE PROGRAM SETS 
FLAG 8 AND RETURNS CONTROL TO THE PANEL ROUTINE. IF THE 
PROGRAM DETECTS AN ERROR CONDITION, IT SETS FLAG 15 AND 
HALTS. 

THE DIAGNOSTIC ENTRY POINT IS X'FEOO, 

.PAGE 
EQUATES 

a 

= 1 

= 2 

* 3 



... BRANCH CONDITIONS 

= 8 
= 1 

■ 2 

■ 3 
s 4 

= 5 

■ 9 
= 10 

11 



I NOT EQUAL ZERO 



I NEGATIVE OR ZERO 



...FLAG ADDRESSES 
= 1 

■ 2 

= X'FEOO 



*DUMMY#» 
00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
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76 0000 

77 0000 

78 0000 

79 0000 

80 0000 

81 FFFE 

82 FFFF 

83 FFFF 

84 FFFF 

85 FE00 

86 FE00 

87 FEOO 

88 FEOO 

89 FE01 

90 FE02 

91 FE03 

92 FE04 

93 FE05 

94 FE06 

95 FE07 

96 FE08 

97 FE09 

98 FEOA 

99 FEOB 

100 FEOC 

101 FEOO 

102 FEOE 

103 FEOF 

104 FE10 

105 FE11 

106 FE12 

107 FE13 

108 FE14 

109 FE15 

110 FE16 

111 FE17 

112 FE18 

113 FE19 

114 FE1A 

115 FE1B 

116 FE1C 

117 FE1D 

118 FE1E 

119 FE1E 

120 FE1E 

121 FE1E 

122 FE1E 

123 FE1F 

124 FE20 

125 FE21 

126 FE22 

127 FE23 

128 FE24 

129 FE25 

130 FE26 

131 FE27 

132 FE28 

133 FE29 

134 FE2A 

135 FE2B 

136 FE2B 

137 FE2B 

138 FE2B 

139 FE2B 

140 FE2C 

141 FE2D 

142 FE2E 

143 FE2F 

144 FE30 

145 FE31 

146 FE32 

147 FE33 

148 FE34 

149 FE35 

150 FE36 

151 FE37 

152 FE38 

153 FE39 

154 FE3A 



I 

OOOF A HOC 



FFFE 
21E0 



FEOO A 



815C 
F15B 
2101 
217E 
F159 
217C 
AOOA 
E157 
2101 
2178 
4801 
215F 
1101 
2174 
5000 
F14D 
2101 
2170 
5000 
F14B 
2101 
216C 
8149 
5001 
F144 
2101 
2167 
5001 
48FF 
2164 



8542 
A40F 
9146 
FOOF 
2101 
215E 
4E01 
C940 
813B 
B200 
5001 
C011 
1557 



0980 
1955 
0900 
1901 
2152 
8138 
A001 
8137 
A002 
4EF0 
4400 
4A01 
21FD 
1849 
4EF9 
8128 



ENTRY: 

I 

% 

I 
I 

start: 



= 15 
.PAGE 
.ASECT 

,=ROMAD*XilFE 
JMP PANEL 



,=ROmAD 



I TEST LOC FOR INDIRECT TEST 



ITRANSFER TO PANEL SERVICE ROUTINE 



TEST REGISTER 0» SKG, SKNEt MEMORY TRANSFERS 



LD 

SKNE 

JMP 

JMP 

SKNE 

JMP 

ST 

SKG 

JMP 

JMP 

AISZ 

JMP 

BOC 

JMP 

CAI 

SKNE 

JMP 

JMP 

CAI 

SKNE 

JMP 

JMP 

LD 

CAI 

SKNE 

JMP 

JMP 

CAI 

AISZ 

JMP 

.PAGE 



R0»MIN1 

R0.MIN1 

.♦2 

ERR1 

R0.X7FFF 

ERR1 

ROvlO 

ROtZERO 

.♦2 

ERR1 

R0»1 

ERR 

ZR0»,*2 

ERR1 

ROtO 

R0.MIN1 

.♦2 

ERR1 

ROtO 

ROtZERO 

.♦2 

ERR1 

RO»ONE 

RO.l 

R0»MIN1 

.♦2 

ERR1 

RO.l 

RO.-l 

ERR1 



UNITIALIZE FOR ISZ* DSZ TEST 



» ONE'S COMPLEMENT 



I ONE'S COMPLEMENT 



J TWO'S COMPLEMENT 



ITWO'S COMPLEMENT 



TEST INDIRECT ADDRESSING 



LD 

ST 

LD 

SKNE 

JMP 

JMP 

LI 

ADD 

LD 

ST 

CAI 

ADD 

BOC 

.PAGE 



Rl.XFACE 

R1*IL0C 

ROtPINDPNT 

RO.ILOC 

.♦2 

ERR1 

R2.1 

R2tLlNDPT 

RO.XFOFO 

R0.P(R2> 

RO.l 

R0.ILOC+2 

NZER0.ERR1 



UNITIALIZE ILOC 



IADD ADDRESS OF INDPNT 



TEST STACK AND INTERRUPTS 



PFLG 

BOC 

SFLG 

BOC 

JMP 

LD 

ST 

LD 

ST 

LI 

PULL 

AISZ 

JMP 

BOC 

LI 

LD 



IENFL 

INTEN»ERR1 

IENFL 

INTEN..+2 

ERR1 

RO.IEP 

RO.l 

R0tIEP*l 

R0f2 

R2.-16 

RO 

R2»l 

.-2 

STKFL»ERR1 

R2.-7 

R0»XA5A5 



1 DISABLE INTERRUPTS 

I ENABLE INTERRUPTS 

I INITIALIZE INTERRUPT ENTRY ADDRESS 

I EMPTY STACK 

I PUSH X'A5A5 AND X'5A5A ONTO STACK 



00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000850 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001380 
(10001390 
00001400 
00001410 
00001420 
00001430 
00001440 
000014S0 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
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155 FE3B 


8528 


A 




LO 


R1.X5A5A 


156 FE3C 


4000 


A 




PUSH 


RO 


157 FE3D 


4100 


A 




PUSH 


Rl 


158 FE3E 


4A01 


A 




AISZ 


R2.1 


159 FE3F 


21FC 


A 




JMP 


.-3 


160 FE40 


4000 


A 




PUSH 


RO 


161 FE41 


4100 


A 




PUSH 


Rl 


162 FE42 


213F 


A 




JMP 


ERR1 


163 FE43 


1801 


A 


INENTYJ 


BOC 


STKFL..+2 


164 FE44 


2130 


A 




JMP 


ERR1 


165 FE45 


193C 


A 




BOC 


INTEN.ERR1 


166 FE46 


5400 


A 




XCHRS 


RO 


167 FE47 


4100 


A 




PUSH 


Rl 


168 FE48 


4500 


A 




PULL 


Rl 


169 FE49 


1838 


A 




BOC 


STKFL.ERR1 


170 FE4A 


8120 


A 




LD 


RO.ERR 


171 FE4B 


A002 


A 




ST 


R0.2 


172 FE4C 


4100 


A 




PUSH 


Rl 


173 FE4D 


1801 


A 




BOC 


STKFL..+2 


174 FE4E 


2133 


A 




JMP 


ERR1 


175 FE4F 


4EF8 


A 




LI 


R2.-8 


176 FE50 


4400 


A 


PLOOPJ 


PULL 


RO 


177 FE51 


F112 


A 




SKNE 


R0.X5A5A 


178 FE52 


2101 


A 




JMP 


.♦2 


179 FE53 


212E 


A 




JMP 


ERR1 


180 FE54 


4400 


A 




PULL 


RO 


181 FE55 


F100 


A 




SKNE 


R0.XA5A5 


182 FE56 


2101 


A 




JMP 


.♦2 


183 FE57 


212A 


A 




JMP 


ERR1 


184 FE58 


4A01 


A 




AISZ 


R2,l 


185 FE59 


21F6 


A 




JMP 


PLOOP 


186 FE5A 


4400 


A 




PULL 


RO 


187 FE5B 


1526 


A 




BOC 


NZEROtERRl 


188 FE5C 


210F 


A 




JMP 


SBRTST 


189 FE5D 


FFFF 


A 


MINI: 


.WORD 


-1 


190 FE5E 


7FFF 


A 


X7FFFJ 


.WORD 


X«7FFF 


191 FE5F 


0000 


A 


ZERO! 


.WORD 





192 FE60 


0001 


A 


One: 


.WORD 


1 


193 FE61 


FACE 


A 


XFACEJ 


.WORD 


X'FACE 


194 FE62 


F0F0 


A 


xfofo: 


.WORD 


X'FOFO 


195 FE63 


A5A5 


A 


XA5A5: 


.WORD 


X»A5A5 


196 FE64 


5A5A 


A 


X5A5A: 


.WORD 


X«5A5A 


197 FE65 


000F 


A 


115: 


.WORD 


15 


198 FE66 


FE67 


A 


lindpt: 


.WORD 


INDPNT 


199 FE67 


000F 


A 


INDPNT: 


.WORD 


ILOC.ILOC+2 


FE68 


0011 


A 








200 FE69 


2500 


A 


IEP: 


JMP 


P.*l 


201 FE6A 


FE43 


A 




.WORD 


INENTY 


202 FE6B 


FF8C 


A 


err: 


.WORD 


ERROR 


203 FE6C 








.PAGE 




204 FE6C 






1 






205 FE6C 






1 


TEST SUBROUTINE LIN 


206 FE6C 






1 






207 FE6C 


4F00 


A 


SRRTSTJ 


LI 


R3.0 


208 FE6D 


4300 


A 




PUSH 


R3 


209 FE6E 


2900 


A 




JSR 


SUBR 


210 FE6F 


4B0A 


A 


retn: 


AISZ 


R3»10 


211 FE70 


FDF4 


A 




SKNE 


R3tU5 


212 FE71 


2101 


A 




JMP 


.♦2 


213 FE72 


210F 


A 




JMP 


ERR1 


214 FE73 


4F00 


A 




LI 


R3.0 


215 FE74 


2D12 


A 




JSR 


0SBRAD 


216 FE75 


4B0A 


A 




AISZ 


R3»10 


217 FE76 


FDEE 


A 




SKNE 


R3fI15 


218 FE77 


2101 


A 




JMP 


.♦2 


219 FE78 


2109 


A 




JMP 


ERR1 


220 FE79 


1901 


A 




BOC 


INTEN,.*2 


221 FE7A 


2107 


A 




JMP 


ERR1 


222 FE7B 


2100 


A 




JMP 


TMWRT 


223 FE7C 








.SPACE 


2 


224 FE7C 


4500 


A 


SUBR: 


PULL 


Rl 


225 FE7D 


F50A 


A 




SKNE 


Rl.RTNAD 


226 FE7E 


4B05 


A 




AISZ 


R3.5 


227 FE7F 


8508 


A 




LD 


Rl.RTNAD 


228 FE80 


4100 


A 




PUSH 


Rl 


229 FE81 


0200 


A 




RTS 





I SHOULD FILL STACK* CAUSE INTERRUPT 
I TEST JUMP CONDITION 

I INTERRUPTS SHOULD BE DISABLED 

t IF INTERRUPT* TRANSFER TO ERROR ROUTINE 

.REFILL STACK! ERROR IF INTERRUPT OCCURS 

I TEST CONTENTS OF STACK 



I STACK SHOULD BE EMPTY 



I TO INITIALIZE LOCS 1 AND 2 
. MUST BE IN LOC IEP*1 



I INTERRUPTS SHOULD BE ENABLED BY RTI 



I JSR TEST 

J CHECK THAT RETURN ADDRESS SAVED 

I ENSURE CORRECT RETURN ADDRESS 



001540 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001840 
001850 
001860 
001870 
001880 
001B90 
001900 
001910 
001920 
001930 
001940 
001950 
001960 
001970 
001980 



00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 



00002220 
00002230 
00002240 
00002250 
00002260 
00002271 
00002280 
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230 FE82 








.SPACE 


2 


231 FE82 


2500 


A 


ERRlJ 


JMP 


P.*l 


232 FE83 


FF8C 


A 




.WORD 


ERROR 


233 FE84 








.SPACE 


2 


234 FE84 


4B05 


A 


SUBRl t 


AISZ 


R3t5 


235 FE85 


0100 


A 




RTI 




236 FE86 


21FB 


A 




JMP 


ERR1 


237 FE87 








.SPACE 


2 


238 FE87 


FE84 


A 


SBRAOt 


.WORD 


SUBRl 


239 FE88 


FE6F 


A 


RTNAD: 


.WORD 


RETN 


240 FEB9 








.PAGE 




241 FE89 






f 






242 FE89 






* 


TEST MEMORY WRITE 


243 FE89 






* 






244 FE89 


4E00 


A 


TMWRT: 


LI 


R2«0 


245 FE8A 


4C01 


A 




LI 


ROtl 


246 FE8B 


A220 


A 


MLOOPi 


ST 


R0»32(R2) 


247 FE8C 


4801 


A 




AISZ 


R0»1 


248 FE8D 


4A01 


A 




AISZ 


R2*l 


249 FE8E 


E97B 


A 




SKG 


R2.D15 


250 FE8F 


21FB 


A 




JMP 


MLOOP 


251 FE90 


4FF0 


A 




LI 


R3»-16 


252 FE91 


4C01 


A 




LI 


R0.1 


253 FE92 


F330 


A 


CLOOP: 


SKNE 


R0»48(R3) 


254 FE93 


2101 


A 




JMP 


.♦2 


255 FE94 


21ED 


A 




JMP 


ERR1 


256 FE95 


4801 


A 




AISZ 


R0.1 


257 FE96 


4B01 


A 




AISZ 


R3»l 


258 FE97 


21FA 


A 




JMP 


CLOOP 


259 FE98 








.PAGE 




260 FE98 






; 






261 FE98 






i 


TEST REGISTER-TO-R 


262 FE98 






* 






263 FE98 


817C 


A 




LD 


R0»M1 


264 FE99 


856E 


A 




LD 


R1»D1 


265 FE9A 


3400 


A 




RADD 


R1*R0 


266 FE9B 


15E6 


A 




BOC 


NZERO^ERRl 


267 FE9C 


8174 


A 




LD 


R0*HA5A5 


268 FE9D 


3281 


A 




RCPY 


R0tR2 


269 FE9E 


3181 


A 




RCPY 


R0*R1 


270 FE9F 


5200 


A 




CAI 


R2.0 


271 FEAO 


3882 


A 




RXOR 


R2fR0 


272 FEA1 


4801 


A 




AISZ 


R0»1 


273 FEA2 


21DF 


A 




JMP 


ERR1 


274 FEA3 


3983 


A 




RAND 


R2»R1 


275 FEA4 


4900 


A 




AISZ 


R1»0 


276 FEA5 


21DC 


A 




JMP 


ERR1 


277 FEA6 


4FFF 


A 




LI 


R3»-l 


278 FEA7 


3C80 


A 




RXCH 


R3»R0 


279 FEA8 


3282 


A 




RXOR 


R0»R2 


280 FEA9 


4801 


A 




AISZ 


R0»1 


281 FEAA 


21D7 


A 




JMP 


ERR1 


282 FEAB 


4B00 


A 




AISZ 


R3*0 


283 FEAC 


21D5 


A 




JMP 


ERR1 


284 FEAO 


F963 


A 




SKNE 


R2»HA5A5 


285 FEAE 


2101 


A 




JMP 


.♦2 


286 FEAF 


21D2 


A 




JMP 


ERR1 


287 FE80 


8D62 


A 




LD 


R3»HF0F0 


288 FE81 


4DFF 


A 




LI 


Rl»-1 


289 FEB2 


3D83 


A 




RAND 


R3*R1 


290 FEB3 


3782 


A 




RXOR 


R1»R3 


291 FEB4 


3881 


A 




RCPY 


R2»R0 


292 FEB5 


3380 


A 




RXCH 


R0»R3 


293 FEB6 


15CB 


A 




BOC 


NZERO.ERR1 


294 FEB7 


3680 


A 




RXCH 


R1»R2 


295 FEB8 


3B83 


A 




RAND 


R2*R3 


296 FEB9 


FD56 


A 




SKNE 


R3»HA0A0 


297 FEBA 


2101 


A 




JMP 


.♦2 


298 FEBB 


21C6 


A 




JMP 


ERR1 


299 FEBC 






\ 






300 FEBC 






% 


TEST LOGICAL-OR FU 


301 FEBC 






\ 






302 FEBC 


8150 


A 




LD 


R0»H5A5A 


303 FEBO 


6953 


A 




OR 


R0»HA5A5 


304 FEBE 


4801 


A 




AISZ 


R0,1 



I FOR JSR" 



;WRITE MEMORY FROM LOC 32 THRU 47 
1WITH INTEGERS 1 THRU 16 



ICOMPARE LOCS 32 THRU 47 WITH INTEGERS 
IUSING NEGATIVE INDEXING 



IR0=-1 
IR1 = 1 
*R0=O 

IR0=X«A5A5 

;R2=X»A5A5 

IR1=X»A5A5 

*R2=X«5A5A 

|R0=-1 

*R0=0 

IR1=0 



;R3=-1 
IR3=0»R0=-1 
JR2=X»A5A5 
1R0=0 



|R3=X'F0F0 

IR1=-1 

IR1=X«F0F0 

IR3=0 

|R0=X'A5A5 

»R3=X'A5A5»R0=0 

IR2=X»F0F0»R1=X»A5A5 
IR3=X«A0A0 



;test 1V0 AND OVl 



00002290 
00002300 
00002310 



00002320 
00002330 
00002340 
00002350 



00002360 
00002370 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002480 
00002490 
00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
00002730 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
00002820 
00002630 
00002840 
00002850 
00002860 
00002870 
00002880 
00002890 
00002900 
00002910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
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305 


FEBF 


21C2 


A 


306 


FECO 


854A 


A 


307 


FFC1 


6D51 


A 


308 


FEC2 


F550 


A 


309 


FEC3 


2101 


A 


310 


FEC4 


21B0 


A 


311 


FEC5 






312 


FEC5 




1 


313 


FEC5 




1 


314 


FEC5 




$ 


315 


FEC5 


4C01 


A 


316 


FEC6 


C14E 


A 


317 


FEC7 


15BA 


A 


318 


FEC8 


OAOO 


A 


319 


FEC9 


1AB8 


A 


320 


FECA 


0A80 


A 


321 


FECB 


1A01 


A 


322 


FECC 


21B5 


A 


323 


FECD 


8141 


A 


324 


FECE 


D139 


A 


325 


FECF 


F13E 


A 


326 


FEO0 


2101 


A 


327 


FEOl 


21B0 


A 


328 


FE02 


1A01 


A 


329 


FED3 


21AE 


A 


330 


FED4 


OAOO 


A 


331 


FED5 


1A01 


A 


332 


FED6 


21AB 


A 


333 


FE07 


8136 


A 


334 


FE08 


C12F 


A 


335 


FE09 


F135 


A 


336 


FEDA 


2101 


A 


337 


FEDB 


21A6 


A 


338 


FEDC 


1A01 


A 


339 


FEDD 


21A4 


A 


340 


FEDE 


0A80 


A 


341 


FEDF 


1AA2 


A 


342 


FEEO 


8120 


A 


343 


FEE1 


012D 


A 


344 


FEE2 


F132 


A 


345 


FEES 


2101 


A 


346 


FEE4 


219D 


A 


347 


FEE5 


1A9C 


A 


348 


FEE6 


OAOO 


A 


349 


FEE7 


1A01 


A 


350 


FEES 


2199 


A 


351 


FEE9 






352 


FEE9 




1 


353 


FEE9 




1 


354 


FEE9 




1 


355 


FEE9 


8D1E 


A 


356 


FEEA 


E02A 


A 


357 


FEEB 


2196 


A 


358 


FEEC 


ED1A 


A 


359 


FEEO 


2194 


A 


360 


FEEE 


ED19 


A 


361 


FEEF 


2101 


A 


362 


FEFO 


2191 


A 


363 


FEF1 


E017 


A 


364 


FEF2 


2101 


A 


365 


FEF3 


218E 


A 


366 


FEF4 


8919 


A 


367 


FEF5 


E919 


A 


368 


FEF6 


218B 


A 


369 


FEF7 


8917 


A 


370 


FEF8 


E915 


A 


371 


FEF9 


2101 


A 


372 


FEFA 


2187 


A 


373 


FEFB 


8519 


A 


374 


FEFC 


E50A 


A 


375 


FEFD 


2101 


A 


376 


FEFE 


2183 


A 


377 


FEFF 


3081 


A 


378 


FFOO 


E514 


A 


379 


FF01 


2102 


A 


380 


FF02 


2500 


A 


381 


FF03 


FF8C 


A 


382 


FF04 


E511 


A 


383 


FF05 


21FD 


A 


364 


FF06 


2110 


A 



JMP 


ERRl 


LD 


R1»H5050 


OR 


R1.HF0F0 


SKNE 


RltHFOFO 


JMP 


.♦2 


JMP 


ERRl 


.PAGE 




TEST 


ARITHMETIC FU 


LI 


R0.1 


ADD 


R0.M1 


BOC 


NZEROtERRl 


SFL6 


SELX 


BOC 


CY0V,ERR1 


PFLG 


SELX 


BOC 


CY0V,.*2 


JMP 


ERRl 


LD 


R0#H8000 


SUB 


ROtDl 


SKNE 


R0»H7FFF 


JMP 


. + 2 


JMP 


ERRl 


BOC 


CY0V,.*2 


JMP 


ERRl 


SFLG 


SELX 


BOC 


CY0V,.*2 


JMP 


ERRl 


LD 


R0tH7FFF 


ADD 


ROtDl 


SKNE 


ROtHSOOO 


JMP 


.♦2 


JMP 


ERRl 


BOC 


CY0V t .*2 


JMP 


ERRl 


PFLG 


SELX 


BOC 


CY0V.ERR1 


LD 


R0.H7FFF 


SUB 


R0»H8000 


SKNE 


ROtMl 


JMP 


.♦2 


JMP 


ERRl 


BOC 


CY0V,ERR1 


SFLG 


SELX 


BOC 


CY0V,.*2 


JMP 


ERRl 
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TEST ! 


SKIP IF GREATI 


LD 


R3tDl 


SKG 


R3»M1 


JMP 


ERRl 


SKG 


R3»D0 


JMP 


ERRl 


SKG 


R3tDl 


JMP 


.♦2 


JMP 


ERRl 


SKG 


R3tD2 


JMP 


.♦2 


JMP 


ERRl 


LD 


R2»H7FFF 


SKG 


R2»H8000 


JMP 


ERRl 


LD 


R2»H8000 


SKG 


R2tH7FFF 


JMP 


.♦2 


JMP 


ERRl 


.LD 


R1.M1 


SKG 


R1»D0 


JMP 


.♦2 


JMP 


ERRl 


NOP 




SKG 


RltMl 


JMP 


.♦3 


JMP 


9.*1 


.WORD 


ERROR 


SKG 


R1»M2 


JMP 


.'2 


JMP 


TISZ 



JTEST OVO AND 1V1 



11*<-1> 

I TEST FOR OVERFLOW 
J TEST FOR CARRY 

»X«8000-1 

? TEST FOR CARRY 
I TEST FOR OVERFLOW 

IX»7FFF*1 

I TEST FOR OVERLFOW 
I TEST FOR CARRY 
I X»7FFF-X»8000 

IANOMALY - NO CARRY GENERATED 
ISHOULD HAVE OVERFLOW 



U>-1 

U>0 
I1>1 

ll>2 

IX»7FFF>X»8000 
IX'8000>X»7FFF 

l-l>0 
I-1>-1 



»-l>-2 

IREF .-2 IN ORDER TO REACH ERRl 
{CONTINUE TESTING 



00003040 
00003050 
00003060 
00003070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130 
00003140 
00003150 
00003160 
00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
00003410 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
00003560 
00003570 
00003580 
00003590 
00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
00003730 
00003740 
00003750 
00003760 
00003770 
00003780 
00003790 
00003800 
00003810 
00003*20 
00003830 
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385 FF07 






.PAGE 




386 FF07 




1 






387 FF07 




1 


CONSTANTS 


388 FF07 




1 






389 FF07 0000 


A 


DOt 


• WORD 





390 FF08 0001 


A 


Dl» 


.WORD 


1 


391 FF09 0002 


A 


02: 


.WORD 


2 


392 FFOA 000F 


A 


D15t 


.WORD 


15 


393 FFOB 5050 


A 


H5050: 


.WORD 


X»5050 


394 FFOC 5555 


A 


H5555: 


.WORD 


X«5555 


395 FFOD 5A5A 


A 


H5A5A: 


.WORD 


X«5A5A 


396 FFOE 7FFF 


A 


H7FFFJ 


.WORD 


Xt7FFF 


397 FFOF 8000 


A 


H8000: 


.WORD 


X»8000 


398 FF10 AOAO 


A 


HAOAO! 


.WORD 


X'AOAO 


399 FF11 A5A5 


A 


HA5A5: 


.WORD 


X«A5A5 


400 FF12 AAAA 


A 


HAAAAi 


• WORD 


X'AAAA 


401 FF13 FOFO 


A 


hfofo: 


.WORD 


X»FQF0 


402 FF14 FACE 


A 


hface: 


.WORD 


X'FACE 


403 FF15 FFFF 


A 


Mil 


.WORD 


-1 


404 FF16 FFFE 


A 


M2: 


.WORD 


-2 


405 FF17 






.PAGE 




406 FF17 




1 






407 FF17 




1 


...TEST 


ISZ AND DSZ 


408 FF17 780A 


A 


TISZ5 


ISZ 


10 


409 FF18 2173 


A 




JMP 


ERROR 


410 FF19 780A 


A 




ISZ 


10 


411 FF1A 2101 


A 




JMP 


.♦2 


412 FF18 2170 


A 




JMP 


ERROR 


413 FF1C 7C0A 


A 




DSZ 


10 


414 FF1D 216E 


A 




JMP 


ERROR 


415 FF1E 7C0A 


A 




DSZ 


10 


416 FF1F 2101 


A 




JMP 


.♦2 


417 FF20 2168 


A 




JMP 


ERROR 


418 FF21 
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419 FF21 




* 






420 FF21 




1 


TEST FLAGS 


421 FF21 




1 






422 FF21 4CFF 


A 




LI 


R0*-1 


423 FF22 1169 


A 




BOC 


ZRO»ERROR 


424 FF23 1268 


A 




BOC 


PZROrERROR 


425 FF24 1301 


A 




BOC 


0DDt.*2 


426 FF25 2166 


A 




JMP 


ERROR 


427 FF26 1401 


A 




BOC 


BITlt.*2 


428 FF27 2164 


A 




JMP 


ERROR 


429 FF28 1B01 


A 




BOC 


NZR0*«+2 


430 FF29 2162 


A 




JMP 


ERROR 


431 FF2A 1501 


A 




BOC 


^ZER0».*2 


432 FF2B 2160 


A 




JMP 


ERROR 


433 FF2C 4801 


A 




AISZ 


R0»1 


434 FF2D 215E 


A 




JMP 


ERROR 


435 FF2E 1101 


A 




BOC 


ZR0t,*2 


436 FF2F 215C 


A 




JMP 


ERROR 


437 FF30 1201 


A 




BOC 


PZR0 f ,*2 


438 FF31 215A 


A 




JMP 


ERROR 


439 FF32 1359 


A 




BOC 


ODD. ERROR 


440 FF33 1458 


A 




80C 


BIT1.ERROR 


441 FF34 1B01 


A 




BOC 


NZR0».*2 


442 FF35 2156 


A 




JMP 


ERROR 


443 FF36 1555 


A 




BOC 


NZERO»ERROR 


444 FF37 AOOO 


A 




ST 


ROtO 


445 FF38 4801 


A 




AISZ 


R0»1 


446 FF39 AOOO 


A 




ST 


RO»0 


447 FF3A 7C00 


A 




DSZ 





448 FF3B 2150 


A 




JMP 


ERROR 


449 FF3C U4F 


A 




BOC 


ZRO»ERROR 


450 FF3D 1201 


A 




BOC 


PZR0,.*2 


451 FF3E 214D 


A 




JMP 


ERROR 


452 FF3F 1301 


A 




BOC 


0DD».*2 


453 FF40 214B 


A 




JMP 


ERROR 


454 FF41 144A 


A 




BOC 


BIT1, ERROR 


455 FF42 1B49 


A 




BOC 


NZRO, ERROR 


456 FF43 1501 


A 




BOC 


NZERO..*2 


457 FF44 2147 


A 




JMP 


ERROR 


458 FF45 4801 


A 




AISZ 


R0»1 


459 FF46 1345 


A 




BOC 


ODD»ERROR 


460 FF47 1401 


A 




BOC 


BIT1..+2 


461 FF48 2143 


A 




JMP 


ERROR 


462 FF49 
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463 FF49 




1 







I ALTERNATING ONES 
I MAX POSITIVE VALUE 
I MAX NEGATIVE VALUE 



ITEST VALUE -1 
I TEST VALUE 

ITEST VALUE 1 

ITEST VALUE 
ILOC 10 VALUE = -1 



I TEST VALUE -1 



IAISZ FAILED TO SKIP ON ZERO 
I TEST VALUE 



IASSUME CARRY-IN WORKS 

ITEST IF AISZ CAUSED SKIP 
IAISZ SKIPPED ON NON-ZERO 
ITEST VALUE 1 



ITEST VALUE 2 



00003840 

00003850 

00003860 

00003870 

00003880 

00003890 

00003900 

00003910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 

00004060 

00004070 

00004080 

00004090 

00004100 

00004110 

00004120 

00004130 

00004140 

00004150 

00004160 

00004170 

00004180 

00004190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

00004260 

00004270 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 
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464 


FF49 




1 


465 


FF49 




I 


466 


FF49 




1 


467 


FF49 


4CO0 


A 


466 


FF4A 


4DFF 


A 


469 


FF4B 


4100 


A 


470 


FF4C 


0280 


A 


471 


FF4D 


4000 


A 


472 


FF4E 


0080 


A 


473 


FF4F 


4600 


A 


474 


FF50 


F9C4 


A 


475 


FF51 


2101 


A 


476 


FF52 


2139 


A 


477 


FF53 


0A00 


A 


478 


FF54 


1A01 


A 


479 


FF55 


2136 


A 


480 


FF56 


0A80 


A 


481 


FF57 


1A01 


A 


482 


FF58 


2133 


A 


483 


FF59 




1 


484 


FF59 




1 


485 


FF59 


4000 


A 


466 


FF5A 


0280 


A 


487 


FF5B 


4100 


A 


488 


FF5C 


0080 


A 


489 


FF5D 


4400 


A 


490 


FF5E 


1520 


A 


491 


FF5F 


OAOO 


A 


492 


FF60 


1A28 


A 


493 


FF61 


0A80 


A 


494 


FF62 


1A29 


A 


495 


FF63 






496 


FF63 




1 


497 


FF63 




1 


498 


FF63 




1 


499 


FF63 


0A80 


A 


500 


FF64 


4C00 


A 


501 


FF65 


4000 


A 


502 


FF66 


0280 


A 


503 


FF67 


81AD 


A 


504 


FF68 


5C0F 


A 


505 


FF69 


F1A5 


A 


506 


FF6A 


2101 


A 


507 


FF6B 


2120 


A 


508 


FF6C 


0080 


A 


509 


FF6D 


4400 


A 


510 


FF6E 


1201 


A 


511 


FF6F 


211C 


A 


512 


FF70 


819E 


A 


513 


FF71 


5CF1 


A 


514 


FF72 


48FF 


A 


515 


FF73 


2118 


A 


516 


FF74 


4CFF 


A 


517 


FF75 


5CF1 


A 


518 


FF76 


48FF 


A 


519 


FF77 


2114 


A 


520 


FF78 




1 


521 


FF78 




1 


522 


FF78 




1 


523 


FF78 


8199 


A 


524 


FF79 


5801 


A 


525 


FF7A 


F191 


A 


526 


FF7B 


2101 


A 


527 


FF7C 


210F 


A 


528 


FF7D 


0080 


A 


529 


FF7E 


4500 


A 


530 


FF7F 


758F 


A 


531 


FF80 


210B 


A 


532 


FF81 


58FE 


A 


533 


FF82 


F189 


A 


534 


FF83 


2101 


A 


535 


FF84 


2107 


A 


536 


FF85 


0080 


A 


537 


FF86 


4500 


A 


538 


FF87 


7587 


A 


539 


FF88 


2103 


A 


540 


FF89 


5801 


A 


541 


FF8A 


F187 


A 


542 


FF8B 


2105 


A 


543 


FF8C 




1 



TEST IF RALU FLAGS CAN BE SET AND CLEARED VIA STACK. ALSO 
TEST CYOV FLAG 



IFLAGS SHOULD ALL BE SET 



LI 


R0»0 


LI 


Rl»-1 


PUSH 


Rl 


PULLF 




PUSH 


RO 


PUSHF 




PULL 


R2 


SKNE 


R2.M1 


JMP 


.♦2 


JMP 


ERROR 


SFLG 


SELX 


BOC 


CY0V..*2 


JMP 


ERROR 


PFLG 


SELX 


BOC 


CYOV..+2 


JMP 


ERROR 


...TRY 


TO CLEAR FLA 


PUSH 


RO 


PULLF 




PUSH 


Rl 


PUSHF 




PULL 


RO 


BOC 


NZERO. ERROR 


SFLG 


SELX 


BOC 


CYOV. ERROR 


PFLG 


SELX 


BOC 


CYOV.ERROR 


.PAGE 




rEST SHIFT WITHOUT L 


PFLG 


SELX 


LI 


ROtO 


PUSH 


RO 


PULLF 




LD 


ROtMl 


SHL 


R0»15 


SKNE 


R0»H8000 


JMP 


.♦2 


JMP 


ERROR 


PUSHF 




PULL 


RO 


BOC 


PZRO..+2 


JMP 


ERROR 


LD 


R0»H8000 


SHR 


R0.15 


AISZ 


R0»-1 


JMP 


ERROR 


LI 


R0»-1 


SHR 


R0»15 


AISZ 


R0»-1 


JMP 


ERROR 


CHECK ROTATE WlTHOUl 


LD 


R0»HAAAA 


ROL 


R0.1 


SKNE 


R0.H5555 


JMP 


.♦2 


JMP 


ERROR 


PUSHF 




PULL 


Rl 


SKAZ 


RltH8000 


JMP 


ERROR 


ROR 


R0.2 


SKNE 


R0.H5555 


JMP 


.♦2 


JMP 


ERROR 


PUSHF 




PULL 


Rl 


SKAZ 


R1»H8000 


JMP 


ERROR 


ROL 


R0.1 


SKNE 


ROtHAAAA 


JMP 


SHLNK 



IR2 SHOULD CONTAIN -1 



ITEST OVERFLOW 
I SHOULD BE SET 

ITEST CARRY 
ISHOULO BE SET 



I ASSUME JUMP CONDITION WORKS 

ITEST OVERFLOW 

I SHOULD NOT BE SET 

ITEST CARRY 

ISHOULD NOT BE SET 



I DO NOT INCLUDE LINK IN SHIFT 



I CLEAR LINK 



I LINK SHOULD NOT BE SET 



I LINK WAS CLEARED PREVIOUSLY 



I TEST LINK 



I LINK SHOULD BE ZERO 



I TEST LINK 



I LINK SHOULD BE ZERO 



00004630 

00004640 

00004650 

00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00004720 

00004730 

00004740 

00004750 

00004760 

00004770 

00004780 

00004790 

00004800 

00004810 

00004820 

00004830 

00004840 

00004850 

00004860 

00004870 

00004880 

00004890 

00004900 

00004910 

00004920 

00004930 

00004940 

00004950 

00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 

00005220 

00005230 

00005240 

00005250 

00005260 

00005270 

00005280 

00005290 

00005300 

00005310 

00005320 

00005330 

00005340 

00005350 

00005360 

00005370 

00005380 

00005390 

00005400 

00005410 

00005420 
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544 


FF8C 


4CFF 


A error: 


LI 


R0»-1 


545 


FF8D 


OFOO 


A 


SFLG 


7 


546 


FF8E 


0000 


A 


HALT 




547 


FF8F 


2500 


A 


JMP 


9,*l 


548 


FF90 


FFFE 


A 


.word 


ENTRY 


549 


FF91 
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550 


FF91 




* 






551 


FF91 




1 


TEST SHIFT WITH LH 


552 


FF91 




* 






553 


FF91 


0A00 


A shlnk: 


SFLG 


SELX 


554 


FF92 


4C01 


A 


LI 


R0.1 


555 


FF93 


5C10 


A 


SHL 


R0tl6 


556 


FF94 


1101 


A 


BOC 


ZR0».*2 


557 


FF95 


21F6 


A 


JMP 


ERROR 


558 


FF96 


0080 


A 


PUSHF 




559 


FF97 


4500 


A 


PULL 


Rl 


560 


FF98 


750F 


A 


SKAZ 


R1»X8000 


561 


FF99 


2101 


A 


JMP 


.♦2 


562 


FF9A 


21F1 


A 


JMP 


ERROR 


563 


FF9B 


5CF0 


A 


SHR 


R0tl6 


564 


FF9C 


F109 


A 


SKNE 


R0»I1 


565 


FF9D 


2101 


A 


JMP 


.♦2 


566 


FF9E 


21E0 


A 


JMP 


ERROR 


567 


FF9F 


0080 


A 


PUSHF 




568 


FFAO 


4400 


A 


PULL 


RO 


569 


FFA1 


7106 


A 


SKAZ 


R0»X8000 


570 


FFA2 


21E9 


A 


JMP 


ERROR 


571 


FFA3 


2106 


A 


JMP 


ROTLNK 


572 


FFA4 






.PAGE 




573 


FFA4 




; 






574 


FFA4 




t 


TEST ROTATE WITH L 


575 


FFA4 




t 






576 


FFA4 


5554 


A H5554: 


.WORD 


Xi 5554 


577 


FFA5 


D555 


A HD555: 


.WORD 


X»0555 


578 


FFA6 


0001 


A 11! 


.WORD 


1 


579 


FFA7 


5555 


A X5555: 


.WORD 


X'5555 


580 


FFA8 


8000 


A X8000! 


.WORD 


X»8000 


581 


FFA9 


AAAA 


A XAAAA! 


.WORD 


X'AAAA 


582 


FFAA 


89FE 


a rotlnk: 


LD 


R2*XAAAA 


583 


FFAB 


4000 


A 


LI 


R1»0 


584 


FFAC 


4100 


A 


PUSH 


Rl 


585 


FFAD 


0280 


A 


PULLF 




586 


FFAE 


5A01 


A 


ROL 


R2»l 


587 


FFAF 


F9F4 


A 


SKNE 


R2.H5554 


588 


FF80 


2101 


A 


JMP 


.♦2 


589 


FFB1 


21DA 


A 


JMP 


ERROR 


590 


FF82 


0080 


A 


PUSHF 




591 


FFB3 


4400 


A 


PULL 


RO 


592 


FFB4 


1207 


A 


BOC 


PZRO»ERROR 


593 


FFB5 


5AFE 


A 


ROR 


R2»2 


594 


FFB6 


F9F0 


A 


SKNE 


R2»X5555 


595 


FFB7 


2101 


A 


JMP 


.♦2 


596 


FFB8 


2103 


A 


JMP 


ERROR 


597 


FFB9 


0080 


A 


PUSHF 




598 


FFBA 


4400 


A 


PULL 


RO 


599 


FFBB 


4800 


A 


AISZ 


R0*0 


600 


FFBC 


21CF 


A 


JMP 


ERROR 


601 


FFBO 


5A01 


A 


ROL 


R2.1 


602 


FFBE 


F9EA 


A 


SKNE 


R2»XAAAA 


603 


FFBF 


2101 


A 


JMP 


.♦2 


604 


FFCO 


21CB 


A 


JMP 


ERROR 


605 


FFC1 


0080 


A 


PUSHF 




606 


FFC2 


4400 


A 


PULL 


RO 


607 


FFC3 


4800 


A 


AISZ 


R0»0 


608 


FFC4 


21C7 


A 


JMP 


ERROR 


609 


FFC5 


4CFF 


A 


LI 


R0.-1 


610 


FFC6 


4000 


A 


PUSH 


RO 


611 


FFC7 


0280 


A 


PULLF 




612 


FFC8 


5A01 


A 


ROL 


R2»l 


613 


FFC9 


F9D0 


A 


SKNE 


R2»X5555 


614 


FFCA 


2101 


A 


JMP 


.♦2 


615 


FFCB 


21C0 


A 


JMP 


ERROR 


616 


FFCC 


0080 


A 


PUSHF 




617 


FFCD 


4400 


A 


PULL 


RO 


618 


FFCE 


12BD 


A 


BOC 


PZRO, ERROR 


619 


FFCF 


SAFE 


A 


ROR 


R2»2 


620 


FFDO 


F904 


A 


SKNE 


R2.HD555 


621 


FFD1 


2101 


A 


JMP 


.♦2 


622 


FF02 


21B9 


A 


JMP 


ERROR 


623 


FFD3 


0080 


A 


PUSHF 





INO-GO INDICATOR 
JERROR OCCURRED 
IREEXECUTE FROM BEGINNING 



I INCLUDE LINK IN SHIFTS 



I ASSUME SKAZ WORKS 



i ASSUME SKNE WORKS 



» SET LINK=0 



I LINK SHOULD BE SET 



t LINK SHOULD NOT RE SET 



I LINK SHOULD NOT BE SET 



I SET LINK 



I LINK SHOULD BE SET 



00005430 
00005440 
00005450 

00005460 
00005470 
00005480 
00005490 
00005500 
00005510 
00005520 
00005530 
00005540 
00005550 
00005560 
00005570 
00005580 
00005590 
00005600 
00005610 
00005620 
00005630 
00005640 
00005650 
00005660 
00005670 
00005680 
00005690 
00005700 
00005710 
00005720 
00005730 
00005740 
00005750 
00005760 
00005770 
00005780 
00005790 
00005800 
00005810 
00005820 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 
00005910 
00005920 
00005930 
00005940 
00005950 
00005960 
00005970 
00005980 
00005990 
00006000 
00006010 
00006020 
00006030 
00006040 
00006050 
00006060 
00006070 
00006080 
00006090 
00006100 
00006110 
00006120 
00006330 
00006140 
00006150 
00006360 
00006170 
00006180 
00006190 
00006200 
00006210 
00006220 
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624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 



FF04 
FFD5 
FFD6 
FFD7 
FF08 
FF09 
FFDA 
FFDB 
FFDC 
FFDn 
FFDE 
FFOF 
FFEO 
FFE1 
FFF2 
FFE3 
FFE4 
FFE5 
FFE6 
FFE7 
FFE8 
FFE9 
FFEA 
FFEB 
FFEC 
FFED 
FFEE 
FFEF 
FFFO 
FFF1 
FFF2 
FFF3 
FFF4 
FFF5 
FFF6 
FFF7 
FFF8 
FFF9 
FFFA 
FFFB 
FFFC 
FFFD 
FFFE 



4400 
71D2 
2185 
5A01 
F9D0 
2101 
2181 
0080 
4400 
12AE 
OR00 
A004 
A405 
A806 
AC07 
9119 
1F10 
0600 
1C03 
1D07 
170A 
21FC 
1CFF 
0400 
3281 
8200 
21F6 
1DFF 
0400 
A200 
21F2 
17FF 
0400 
4000 
8004 
8405 
8806 
8C07 
0880 
0F80 
0200 
FEOO 
FFFE 



panel: 



ROUT: 
WAIT: 



la: 



LD: 



ex: 



EXIT: 



stadd: 



PULL 

SKAZ 

JMP 

ROL 

SKNE 

JMP 

JMP 

PUSHF 

PULL 

ROC 

SFLG 

ST 

ST 

ST 

ST 

LD 

BOC 

ROUT 

BOC 

BOC 

BOC 

JMP 

BOC 

PIN 

RCPY 

LD 

JMP 

BOC 

RIN 

ST 

JMP 

BOC 

RIN 

PUSH 

LD 

LD 

LD 

LD 

PFLG 

PFLG 

RTS 

.WORD 

.END 



RO 

RO.X8000 

ERROR 

R2tl 

R2»XAAAA 

.♦2 

ERROR 

RO 

PZROtERROR 



0*4 

1.5 

2,6 

3.7 

O.PSTADD 

15. EXIT 



12. LA 

13.LD 

7. EX 

WAIT 

12.LA 



0.2 

0.(2) 

ROUT 

13. LD 



0.(2) 

ROUT 

7.EX 





0.4 

1.5 

2.6 

3.7 



7 

START 
ENTRY 



I LINK SHOULD BE ZERO 



! INDICATE GOOD RESULTS 
{SAVE REGISTERS 



UNITIALIZE RESULT INDICATORS 



00006230 
00006240 
00006250 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
00006320 
00006330 
00006340 
00006350 
00006360 
00006370 
00006380 
00006390 
00006400 
00006410 
00006420 
00006430 
00006440 
00006450 
00006460 
00006470 
00006480 
00006490 
00006500 
00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 
00006580 
00006590 
00006600 
00006610 
00006620 
00006630 
00006640 
00006650 



ERRORS IN ASSEMBLY »»**** 



BIT1 
0004 A 



CLOOP 
FE92 A 



CYOV 
000A A 



DO 
FF07 A 



Dl 
FF08 A 



D15 
FFOA A 



02 
FF09 A 



ENTRY 
FFFE A 



ERR 
FE6B A 



ERR1 
FE82 A 



ERROR 
FF8C A 



EX 
FFF3 A 



EXIT 
FFF5 A 



H5050 
FFOB A 



H5554 
FFA4 A 



H5555 
FFOC A 



H5A5A 
FFOD A 



H7FFF 
FFOE A 



H8000 
FFOF A 



HAOAO 
FF10 A 



HA5A5 
FF11 A 

INDPNT 
FE67 A 

NZERO 
0005 A 

R3 
0003 A 

STADD 
FFFD A 



HAAAA 
FF12 A 

INENTY 
FE43 A 

NZRO 
OOOB A 

RETN 
FE6F A 

START 
FEOO A 



HD555 
FFA5 A 

INTEN 
0009 A 

ODD 
0003 A 

ROMAD 
FEOO A 

STKFL 
0008 A 



HFOFO 
FF13 A 

LA 
FFEA A 

ONE 
FE60 A 

ROTLNK 
FFAA A 

SUBR 
FE7C A 



HFACE 
FF14 A 

LD 
FFEF A 

PANEL 
FFDF A 

ROUT 
FFE5 A 

SUBR1 
FE84 A 



II 
FFA6 A 

LINDPT 
FE66 A 

PLOOP 
FE50 A 

RTNAD 
FE88 A 

TISZ 
FF17 A 



115 
FE65 A 

Ml 
FF15 A 

PZRO 
0002 A 

SBRAD 
FE87 A 

TMWRT 
FE89 A 



IENFL 
0001 A 

M2 
FF16 A 

RO 
0000 A 

SBRTST 
FE6C A 

WAIT 
FFE6 A 



IEP 
FE69 A 

MINI 
FE5D A 

Rl 

0001 A 

SELX 

0002 A 

X5555 
FFA7 A 



ILOC 
00OF A 

MLOOP 
FE8B A 

R2 
0002 A 

SHLNK 
FF91 A 

X5A5A 
FE64 A 



X7FFF 
FE5E A 



X8000 

FFA8 A 



XA5A5 
FE63 A 



XAAAA 
FFA9 A 



XFOFO 
FE62 A 



XFACE 
FE61 A 



ZERO 
FE5F A 



ZRO 
0001 A 



1E08 



F8FE 



10 



NOTE: It is most important to insert ROMs into the correct sockets. The 
picture below shows the appropriate location and supercedes the 
information contained in the ROMD1 listing. 
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